Dr. Windows 3/dr win3.zip/dr win3/UTILITY2/RFDML120.ZIP/CSERVE.SCR

Text File | 1994-01-18 | 20KB | 703 lines

;------------------------------------------------------
;
;CSERVE.SCR --- The script file for CompuServe
;
;------------------------------------------------------
;
;   We begin with the format specifiers to which allow
;the script to identify where the MailId, RealName,
;and Subject texts are in a newly downloaded letter.
;
Format
Reply to: $SUBJECT$\n
Subject: $SUBJECT$\n
Subj: $SUBJECT$\n
From: [$UID$] $NAME$\n
From: $NAME$[$UID$]
From: $NAME$>$UID$\n
From: $UID$\n
Endformat
;
;------------------------------------------------------
; The following is a set of aliases which define the
; various prompts that CIS will send.
;
Alias cishost 'Host Name:'
Alias cisprompt 'Enter choice'
Alias loginprompt '\nUser ID: '
Alias passwdprompt '\nPassword:'
Alias presscr 'Press <CR>!'
;
; The following aliases define the banner lines for
; various areas of the CIS system
;
Alias mailmenubanner 'Mail  Main Menu'
Alias msgmenubanner '\nCompuServe Mail  Message Menu'
;
;------------------------------------------------------
; The following alias determines what intermediate network
; will be assumed.  It can be one of the following:
;
;    DIRECT    Direct connection to CIS Packet Net
;    SPRINT    Connect through SprintNet
;    TYMNET    Connect through TymNet
;
Alias connectype DIRECT
;
; The following alias should be set TRUE if your modem
; drops carrier every time you make a connection.  This
; alias simply forces the script to wait 2 seconds for
; the connection to settle before starting the script.
;
Alias waitasec FALSE
;
;------------------------------------------------------
; The following aliases cause the script to use
; XMODEM for the transfer protocol.  Comment them
; out if you wish to use ASCII instead:
;
Alias dnloadproto REQUEST_XMODEM_DNLOAD
Alias uploadproto REQUEST_UPLOAD_XMODEM
;
; Uncomment the following aliases if you wish to
; use ASCII transfers:
;
;Alias dnloadproto REQUEST_ASCII_DNLOAD
;Alias uploadproto REQUEST_UPLOAD_ASCII
;
;------------------------------------------------------
; This is the main entry-point for the script, which
; decides which intermediate network will be used to
; connect to CompuServe.
;
Begin START
   If %waitasec% Then WAIT_START
   If TRUE Then %connectype%
End
Begin WAIT_START
   Timeout 2 Goto %connectype%
End
;
;------------------------------------------------------
; This is the entry point for a direct dial-in to CIS
; Packet Net.  Basically it begins by sending a Control-C
; every three seconds until we see a 'User ID' prompt.
;
Begin DIRECT
   Caption 'connected'
   Control C
   When %cishost% Goto CIS_HOST
   When %loginprompt% Goto USERNAME
   Timeout 3 Goto DIRECT
End
;------------------------------------------------------
; This is the entry point for a dial-in to CIS via
; SprintNet.
;
Alias sprintterm 'TERMINAL='
Begin SPRINT
   Timeout 2 Goto SPRINT0
End
Begin SPRINT0
   Caption 'connected'
   Transmit '@'
   Timeout 1 Goto SPRINTCR
End
Begin SPRINTCR
   Cr
   When %sprintterm% Goto SPRINT_TERM
   CarrierLoss Goto NO_LOGIN
   Timeout 8 Goto SPRINT1
End
Begin SPRINT1
   Transmit '@'
   Timeout 1 Goto SPRINTCR1
End
Begin SPRINTCR1
   Cr
   When %sprintterm% Goto SPRINT_TERM
   CarrierLoss Goto NO_LOGIN
   Timeout 8 Goto SPRINT2
End
Begin SPRINT2
   Transmit '@'
   Timeout 1 Goto SPRINTCR2
End
Begin SPRINTCR2
   Cr
   When %sprintterm% Goto SPRINT_TERM
   CarrierLoss Goto NO_LOGIN
   Timeout 30 Goto NO_LOGIN
End
Begin SPRINT_TERM
   Transmit 'D1'
   Cr
   When '@' Goto SPRINT_LOGIN
   When %sprintterm% Goto SPRINT_TERM
   Timeout 30 Goto NO_LOGIN
End
Begin SPRINT_LOGIN
   Transmit 'C 614227'
   Cr
   When %cishost% Goto CIS_HOST
   When %loginprompt% Goto USERNAME
   When '@' Goto SPRINT_LOGIN2
   Timeout 45 Goto NO_LOGIN
End
Begin SPRINT_LOGIN2
   Transmit 'C 202202'
   Cr
   When %cishost% Goto CIS_HOST
   When %loginprompt% Goto USERNAME
   Timeout 45 Goto NO_LOGIN
End
;------------------------------------------------------
; This is the entry point for a dial-in to CIS via
; TymNet.
;
Alias tymterm 'terminal identifier'
Alias tymlogin 'please log in'
Alias tymcis 'CML05'
Begin TYMNET
   Caption 'connected'
   When %tymterm% Goto TYMNET_TERM
   CarrierLoss Goto NO_LOGIN
   Timeout 5 Goto TYMNET1
End
Begin TYMNET1
   Cr
   When %tymterm% Goto TYMNET_TERM
   CarrierLoss Goto NO_LOGIN
   Timeout 5 Goto TYMNET2
End
Begin TYMNET2
   Cr
   When %tymterm% Goto TYMNET_TERM
   CarrierLoss Goto NO_LOGIN
   Timeout 15 Goto NO_LOGIN
End
Begin TYMNET_TERM
   Transmit 'A'
   When %tymlogin% Goto TYMNET_LOGIN
   When %tymterm% Goto TYMNET_TERM
   CarrierLoss Goto NO_LOGIN
   Timeout 15 Goto NO_LOGIN
End
Begin TYMNET_LOGIN
   Transmit %tymcis%
   Cr
   When %tymlogin% Goto TYMNET_LOGIN
   When %cishost% Goto CIS_HOST
   When %loginprompt% Goto USERNAME
   CarrierLoss Goto NO_LOGIN
   Timeout 45 Goto NO_LOGIN
End
;
;------------------------------------------------------
; These states perform the login process into CIS
;
Begin CIS_HOST
   Transmit 'CIS,DOMESTIC'
   Cr
   When %cishost% Goto CIS_HOST
   When %loginprompt% Goto USERNAME
   Timeout 45 Goto NO_LOGIN
End
Begin USERNAME
   Caption 'logging in'
   Transmit $USERNAME
   Cr
   When %passwdprompt% Goto PASSWORD
   When %loginprompt% Goto USERNAME
   Timeout 20 Goto NO_LOGIN
End
Begin PASSWORD
   Transmit $PASSWORD
   Cr
   When %passwdprompt% Goto PASSWORD
   When %loginprompt% Goto USERNAME
   When 'CompuServe Information Service' Goto LOGGED_IN
   Timeout 20 Goto NO_LOGIN
End
Begin LOGGED_IN
   Caption 'logged in'
   When %msgmenubanner% Goto MESSAGE_MENU
   When 'New This Week' Goto NEW_MENU
   When %cisprompt% Goto JUMP_TO_MAIL
   Timeout 30 Goto JUMP_TO_MAIL
End
Begin NEW_MENU
   When %cisprompt% Goto JUMP_TO_MAIL
   Timeout 20 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
; These states deal with getting from wherever we are
; into the CIS Mail Area.
;
Begin JUMP_TO_MAIL
   Transmit 'go email'
   Cr
   When 'Mail  Message Menu' Goto MESSAGE_MENU
   When 'additional information (Y or N)!' Goto ANSWER_NO
   When 'is temporarily unavailable' Goto MAIL_UNAVAILABLE
   When %mailmenubanner% Goto MAIL_MAIN_MENU
   When %cisprompt% Goto JUMP_TO_MAIL
   Timeout 20 Goto GIVE_UP
End
Begin ANSWER_NO
   Transmit 'N'
   Cr
   When 'Mail  Message Menu' Goto MESSAGE_MENU
   When 'additional information (Y or N)!' Goto ANSWER_NO
   When %mailmenubanner% Goto MAIL_MAIN_MENU
   When %cisprompt% Goto JUMP_TO_MAIL
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
; At this point we're entering the main menu of the
; mail area.  These states detect if there's mail,
; and if there is it initiates a download of the next
; letter in line.  If not, and there are more letters
; to deliver, an upload is initiated
;
Begin MAIL_MAIN_MENU
   Caption 'Mail Area'
   When '*** No mail waiting ***' Goto NO_MAIL_WAITING
   When 'letters waiting' Goto MAIL_WAITING
   When 'letter waiting' Goto MAIL_WAITING
   When 'message pending' Goto MAIL_WAITING
   When 'messages pending' Goto MAIL_WAITING
   When %cisprompt% Goto JUMP_TO_MAIL
   Timeout 20 Goto GIVE_UP
End
Begin MAIL_WAITING
   If FETCHING Then FETCH_FROM_MAIN_MENU
   If MORE_LETTERS Then SEND_MAIL
   When %cisprompt% Goto LOG_OFF
   Timeout 20 Goto LOG_OFF
End
Begin NO_MAIL_WAITING
   Caption 'No Mail'
   If MORE_LETTERS Then SEND_MAIL
   When %cisprompt% Goto LOG_OFF
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
; These states are run when the silly "Message Menu"
; appears at login time.  If the script is fetching
; mail, it will initiate a download of a letter from
; this menu.  Note that only one letter will be downloaded,
; if there are more, the script gets the rest from the
; normal Mail Menu.
;
Begin MESSAGE_MENU
   Caption 'You have mail'
   If FETCHING Then FETCH_FROM_MESSAGE_MENU
   When 'M for CompuServe Mail' Goto JUMP_TO